home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4180 / source.4u / riley.ben / show_pic.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  934b  |  37 lines
  1. 10 REM ------------------
  2. 100 REM ----> Set up a few things
  3. 110 REM 
  4. 120 ERASE
  5. 130 PALETTE
  6. 140 REM 
  7. 150 REM ----> Do program
  8. 160 REM 
  9. 170 VARNAME
  10. 180 IF
  11. 190 IF
  12. 20 REM 
  13. 200 IF
  14. 210 CENTRE
  15. 220 LOAD
  16. 230 FADE
  17. 240 REM 
  18. 250 REM ----> Copy picture to screen
  19. 260 REM 
  20. 270 MODE
  21. 280 FADE
  22. 290 SCREEN COPY
  23. 30 REM  DISPLAY A SCREEN
  24. 300 FADE
  25. 310 REM 
  26. 320 REM ----> Wait for mouse button press
  27. 330 REM 
  28. 340 REPEAT
  29. 350 UNTIL
  30. 360 GOTO
  31. 40 REM  BY BEN OF FRESCH
  32. 50 REM       v1.21
  33. 60 REM 
  34. 70 REM ------------------
  35. 80 FADE
  36. 90 REM 
  37.